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PAL III ASSEMBLER OVERLAY FOR CARD READER INPUT 


DECUS Program Library Write-up 


DECUS No. 8-305 


TITLE PAL III ASSEMBLER OVERLAY FOR CARD READER INPUT. 

ISSUED 2/25/70 
AUTHOR B.J. LITTLE 
ABSTRACT 

THIS OVERLAY REPLACES THE HIUH SPEED READER INPUT WITH CARD READER 
INPUT. CHARACTER VALIDITY CHECK IS MADE ON EACH CARD COLUMN. DATA 
LOSS CHECK IS MADE ON EACH CARD. COLUMNS 1-72*PUNCHED WITH IBM 26 
PUNCH*ARE PROCESSED BY THE ASSEMBLER. ERROR DIAUNOSTICS ALLOW RECOV¬ 
ERY FROM MOST DATA LOSS*READ ERROR*AND HARDWARE FAILURE SITUATIONS. 

REQUIREMENTS 

A. COMPUTER--PDP-8/I WITH CR-8/I (GDI MODEL 100 CARD READER). 

B. BINARY TAPE—PAL III ASSEMBLER (DEC-08-ASB1-PB DATED 2/24/67). 

C. CARD DECK--SOURCE PROGRAM IN PAL III FORMAT. 

RESTRICTIONS 

ALL 64 CHARACTERS IN HOLLERITH CODE ARE RECOGNIZED AS VALID. ALPHAS* 
NUMERICS*AND 11 SPECIAL CHARACTERS OF IBM 26 PUNCH CHARACTER SET ARE 
CONVERTED TO ASCII CODE. REMAINING VALID CODES ARE PROCESSED AS 
ZEROES (EQUIVALENT TO BLANK TAPE). 

USAGE 

A. LOAD PAL III OBJECT TAPE WITH BINARY LOADER. 

B. LOAD OVERLAY OBJECT TAPE WITH BINARY LOADER. 

C. PERFORM ASSEMBLY ON SOURCE PROGRAM USING CARD DECK AND CARD READ¬ 
ER INSTEAD OF TAPE AND HIGH SPEED READER. 

D. REFER TO ERROR DIAGNOSTICS IN COMMENTS SECTION IF COMPUTER HALTS 
AT UNEXPECTED POINTS IN THE ASSEMBLY PROCEDURE. 

COMMENTS 

USER DEFINED SYMBOL TABLE CAPACITY IS 536. 

ALL 80 COLUMNS OF THE CARD ARE READ TWICE. FIRST IN THE BINARY MODE 
THEN THE ALPHA-NUMERIC MODE. THE BINARY READING IS CHECKED FOR CHAR¬ 
ACTER VALIDITY. THE ALPHA-NUMERIC READING IS COMPARED TO THE VALID 
BINARY READING. A CARD COLUMN COUNT IS KEPT AND DATA LOSS IS ASSUMED 
IF MORE OR LESS THAN 80 COLUMNS ARE READ. 

CARRIAGE-RETURN AND LINE-FEED CODES ARE GENERATED AS PROCESSING 
TERMINATORS FOR EACH CARD. THEY ARE PLACED IMMEDIATELY AFTER THE 
LAST NON-SPACE CHARACTER PUNCHED IN COLUMNS 1-72 OR IN COLUMNS 1 AND 
2 FOR BLANK CARDS. 





ERROR DIAGNOSTICS 


ACCUMULATOR PROBABLE CAUSE OF ERROR HALT 

CONTENTS RECOVERY PROCEDURE 

0000 NORMAL HALT IF LAST CARD READ CONTAINED A PAUSE OR $. 

CARD DONE FLAG—FLAG NOT SET AFTER 80 COLUMNS. 

RELOAD LAST CARD,PRESS CONT TO RESTART. 

0100 DATA LOSS-“DATA READY FLAG OCCURED FOR MORE THAN 80 COLUMNS. 
RELOAD LAST CARD,PRESS CONT TO RESTART. 

0200 READ ERROR--INVALID CODE READ IN BINARY MODE OR BINARY AND 
ALPHA-NUMERIC READINGS DO NOT AGREE. 

RELOAD LAST CARD,PRESS CONT TO RESTART. 

7661-7777 DATA LOSS--DATA READY FLAG OCCURED FOR LESS THAN 80 COLUMNS. 

§ RELOAD LAST CARD,PRESS CONT TO RESTART. 

7660 THERE ARE SEVERAL CAUSES OF AN ERROR HALT WITH THIS ACCUMU¬ 
LATOR INDICATION. ERROR LIGHTS ON CARD READER CONTROL PANEL 
HELP DETERMINE CAUSE. 

NO LIGHTS--READ START OR MOTOR START SWITCHES NOT OPERATED. 
DATA READY FLAG INOPERATIVE IF CARD MOTION WAS OBSERVED. RCSE 
COMMAND INOPERATIVE IF CARD MOTION WAS ABSENT. ERROR LIGHTS 
BURNED OUT. 

HOPPER EMPTY--NORMAL INDICATION WHEN ALL CARDS PLACED IN 
INPUT HOPPER HAVE BEEN READ. IF PASS IS NOT COMPLETE,LOAD 
CARDS IN INPUT HOPPER AND PRESS CONT. 

PICK FAIL--TOO MANY CARDS IN INPUT HOPPER. 

REMOVE SOME CARDS,PRESS CONT TO RESTART. 

DARK CHECK--TRANSLUCENT CARD OR READ LAMP INTENSITY TOO HIGH. 
LAST CARD HAD ALL VALID HOLLERITH CODES. 

PRESS CONT TO RESTART. 

DARK CHECK PLUS LIGHT CHECK--TRANSLUCENT CARD OR READ LAMP 
INTENSITY TOO HIGH. REMOVE CARD FROM READ STATION,RELOAD 
CARD,PRESS CONT TO RESTART. 

STACKER FAIL--CARD JAM IN TRACK BETWEEN READ STATION AND 
STACKER HOPPER. DETERMINE SALVAGE PROCEDURE. 

SYNC FAIL--THE LAST CARD WAS PROBABLY READ CORRECTLY. TRY TO 
CONTINUE BY PRESSING CONT. 

LIGHT CHECK--CARD IN READ STATION TOO LONG. MAY BE ACCOMPA¬ 
NIED BY INCORRECT DATA READINGS DUE TO LOSS OF BITS. IN GEN¬ 
ERAL,LOSS OF BITS WILL STILL GENERATE VALID HOLLERITH CODES. 
PRESSURE ROLLERS IN READ STATION MAY BE WORN OR OUT OF 
ADJUSTMENT. SAFEST COURSE IS TO RELOAD DECK AND RESTART AT 
LOCATION 0200. 
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/PROGRAM LISTING 

/PAL III ASSEMBLER OVERLAY FOR CARD READER INPUT 
/B.J. LITTLE 
/ 2-25-70 


/PAGE ZERO INTERCOMMUNICATION 


AAA* 

*20 

0 

BBB* 

0 

CHEKI* 

*25 

CHEK 

LOPUNI* 

*52 

LOPUN 

HIPUNI* 

HIPUN 

CDREDI* 

CDREAD 

NXCOLI* 

NXTCOL 

TEM1 * 

*1 1 1 

0 

TEM2 * 

0 

TEM3* 

0 


/POINTER TO READ ROUTINE 
/POINTER TO PUNCH ROUTINE 

/CHECKS CHARACTER LEGALITY 

/ASR 33 PUNCH ROUTINE 
/PP-8/I PUNCH ROUTINE 
/CR-8/I CARD READ ROUTINE 
/NEXT COLUMN 

/AVAILABLE TO ALL ROUTINES 

/. . . 

/. . . 


*124 

SF2* 6000 
RBGN* 0 
RKON* -120 
*131 

TBUF* bfrst 
GOREAD* BFRST 
*136 

CHAR* 0 

*156 

SWITCH* 0 
COLCNT* 0 
/EQUALITIES 
RCSF =6631 
RCRA=6632 
RCRB=6634 
RCSD=6671 
RCSE=6672 
RCRD=6674 
AUTOA=10 
AUTOB=11 
AUTOC=12 
PASS1=254 
PASS2=261 
PASS3=266 
IPUN=161 
L0PUN=364 
CHEK=1506 
CR=70 


/MASK FOR PASS BITS 
/READER BUFFER POINTER 
/80 COLUMNS TO READ 

/PASS 3 BUFFER 
/CARD READ BUFFER 

/CURRENT CHARACTER BEING PROCESSED 

/OUT OF CARDS OR READER NOT READY 
/NUMBER OF CHARACTERS IN BUFFER 

/SKIP ON DATA READY 

/READ ALPHANUMERIC 

/READ BINARY 

/SKIP ON CARD DONE FLAG 

/SELECT CARD READER AND SKIP IF READY 

/CLEAR CARD DONE FLAG 


M12=75 

M23=76 


3 



/SELECTS CR-8/I CARD READER 

/SELECTS PP-8/I HIGH SPEED PUNCH IF ON 

/DETERMINES PASS NUMBER FROM SWITCH SETTINGS 



*200 


SPAL* 

DCA 

TEM1 

/ZERO COUNTER 


PLS 


/SELECT PUNCH 


PSF 


/PUNCH FLAG SET 


SKP 




JMP 

.+3 

/YES-SELECT READER AND PUNCH 


ISZ 

TEMI 

/WAITED 42 MS 


JMP 

• -4 

/NO 


TAD 

CDREDI 

/USE CARD READER 


DCA 

AAA 

/SET READ ROUTINE POINTER 


TAD 

GOREAD 

/GET CARD BUFFER START 


DCA 

RBGN 

/SET POINTER 


DCA 

TEMI 

/ZERO COUNTER 


ISZ 

TEMI 

/WAIT 18 MS 


JMP 

.-1 



PSF 


/PUNCH FLAG SET 


JMP 

.+3 

/NO 


TAD 

HIPUNI 

/USE HSP (PP-8/I) 


SKP 




TAD 

LOPUNI 

/USE LSP (ASR 33) 


DCA 

BBB 

/SET PUNCH ROUTINE POINTER 

PASS* 

KCC 


/INITIALIZE KEYBOARD 


TLS 


/AND TELEPRINTER 


PLS 


/AND PUNCH 


CLA 

OSR 



AND 

SF2 

/PASS NUMBER SET 


SNA 




JMP 

NXPA 

/NO--HALT 


CLL 

RAL 

/GET HIGH ORDER BIT 


SNL 


/WAS IT SET 


JMP 

PASS 1 

/NO--PASS 1 


SMA 

CLA 

/YES-WHAT ABOUT LOW ORDER 


JMP 

PASS2 

/NOT ON--PASS 2 


JMP 

PASS3 

/ON--PASS 3 

NXPA, 

HLT 




JMP 

PASS 



HLT 


/FILL 243-250 WITH HALTS 


HLT 




HLT 




HLT 




HLT 




HLT 
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/CR-8/I CARD READER ROUTINE 
/CALLED BY JMS I AAA 
/EXITS WITH LEGAL CHARACTER IN CHAR 
*1400 
CDREAD* 0 

ISZ COLCNT 
JMP GETCHR 
RCRB 


/BUFFER EMPTY 

/NO--GET NEXT CHAR FROM BUFFER 
/CLEAR DATA READY FLAG 


hXTCOL® < 


CLA CLL 
TAD RBGN 
DCA AUTOA 
TAD RKON 
DCA COLCNT 
RCSE 

JMP ENDBF 
JMP NXTCOL 
*1426 

» 

TAD M23 
DCA TEM1 
DCA TEM2 
RCSF 
SKP 


/BEGINNING OF READ BUFFER 

/80 COL CONSTANT 

/SKIP IF CARD READER READY 
/GET HELP 


/SKIP ON DATA READY FLAG 

/NO DATA--WAIT FOR 2 PICK ATTEMPTS 


JMP I HAVDAT /HAVE DATA 



ISZ 

TEM2 

/INNER DELAY LOOP 


JMP 

.-4 



ISZ 

TEM1 

/OUTER DELAY LOOP 


JMP 

• -6 


ENDBF=. 





CLA 

CLL 



TAD 

COLCNT 

/GET ERROR INDICATION 


HLT 


/OPERATOR ACTION 


CLA 

CLL CMA 



DCA 

COLCNT 

/SHOW BUFFER EMPTY 


JMP 

CDREAD+1 

/LOOK FOR LAST NON SPACE CHARACTER* STORE A CR AND LF 

LSTCHR* 

CLA 

CLL CMA 

RAL /SET ACC=-2 


TAD 

AUTOA 



DCA 

AUTOA 

/BACK UP TWO 


TAD 

I AUTOA 

/GET CHARACTER 


TAD 

M240 



SNA 

CLA 

/WAS IT A SPACE 


JMP 

LSTCHR 

/YES 


TAD 

CR 



DCA 

I AUTOA 

/STORE CARRIAGE RETURN 


TAD 

LF 



DCA 

I AUTOA 

/STORE LINE FEED 


TAD 

RBGN 



CMA 

I AC 

/FORM -RBGN 


TAD 

AUTOA 

/ADD LOC OF BUFFER END 


CMA 

I AC 

/FORM -(NUMBER OF CHARS IN BUFFER) 


DCA 

COLCNT 

/STORE IN COUNTER 


TAD 

RBGN 



DCA 

AUTOB 

/INITIALIZE BUFFER EMPTYING INDEX 
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/PROCESS LAST CARD READ 
GETCHR®• 

TAD I AUTOB /GET A CHARACTER 
DCA CHAR 

JMS I CHEKI /IS IT LEGAL 
JMP CDREAD+1 /NO 
JMP I CDREAD /YES 
HAVDAT* HVEDTA 
M240* -240 

LF » 212 

/CARD READ AND PASS 3 BUFFER 
*7150 

BFRST=• 

BFRST /BUFFER START 

*.+122 

/CHECK FOR LEGAL CHARACTER*COMPARE ALPHA AND BINARY READ 
HVEDTA=. 

RCRB /READ BINARY 

DCA TEM2 /SAVE CHARACTER 

TAD OCTWD 

DCA AUTOC 

TAD Ml00 

DCA TEM1 

HUNT=. 

TAD I AUTOC /GET OCTAL CODE 


TAD 

TEM2 

/GET CHARACTER 

SNA 

CLA 

/HAVE MATCH 

JMF 

.+4 

/YES 

ISZ 

TEM1 

/THROUGH SEARCHING 

JMP 

HUNT 

/NO 

JMP 

ERROR 

/ILLEGAL CODE 

TAD 

AUTOC 

/GET OCTAL CODE ADDRESS 

TAD 

M100 


DCA 

PALFWD 

/ALPHA TABLE POINTER 

ISZ 

TEM1 


JMP 

.-1 


RCRA 

/READ ALPHA-NUMERIC 

TAD 

ALFWD 



CMA IAC 
TAD PALFWD 
SZA CLA 

JMP ERROR /ALPHA AND OCTAL READ DO NOT MATCH 

TAD I PALFWD /GET ASCII CODE 

DCA I AUTOA /STORE IN BUFFER 

ISZ COLCNT /FINISHED 80 COLS 

JMP I NXCOLI /NO 
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/CHECK FOR CARD DONE FLAG AND MORE THAN 80 COLUMNS 
DCA TEM1 

ISZ TEM1 /DELAY FOR CARD DONE FLAG 
SKP 


ENDBFI /CARD DONE FLAG MISSING 


/DATA READY FLAG AFTER COL 
/SKIP ON CARD DONE FLAG 


80 


/INPUT 

ERROR= 


JMP I 
RCSF 
SKP 

JMP ERROR 
RCSD 
JMP .-7 

TAD C0L73 /SET UP FOR LAST 

DCA AUTOA /IN COLS 1-72 

JMP I CHRLST /LOOK FOR LAST NON SPACE CHARACTER 
TERMINATION ON READ ERROR 


(NON-SPACE) CHARACTER 



TAD 

COLCNT 



SNA 

CLA 

/DATA READY AFTER 80 COLUMNS 


JMP 

OVR80 

/YES 


DCA 

TEM1 

/NO--DELAY TO COMPLETE CARD MOTION 


ISZ 

TEM1 



JMP 

.-1 



TAD 

P100 


OOR80S. 

TAD 

P100 



DCA 

TEM2 



RCRB 

/CLEAR DATA READY FLAG 


CLA 

CLL 



TAD 

TEM2 

/GET ERROR INDICATOR 


HLT 


/OPERATOR ACTION 


CLA 

CLL CMA 


DCA 

COLCNT 

/REMOVE LAST CARD FROM BUFFER 


JMP 

I . + 1 



CDREAD+1 

/NEXT CARD 

OCTWD* 

OCTTAB-1 

/OCTAL CODE TABLE START 

ALFWD* 

ALFTAB 

/ASCII CODE TABLE START 

PALFWD* 

0 


/ALPHA TABLE POINTER 

COL73, 

BFRST+111 

/LOCATION IN BUFFER OF COL 73 

P100> 

100 



M100> 

-100 


MNS40* 

-40 



ENDBFI » 

ENDBF 

/DUMP THE BUFFER 

CHRLST * 

LSTCHR 

/LAST NON-SPACE CHARACTER 
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/HOLLERITH TO ASCII CODE TABLE OF 64 DECIMAL CHARACTERS 
/LISTED IN 00 TO 77 OCTAL NUMERICAL ORDER CORRESPONDING TO 
/INTERNAL CARD READER CODE AS READ IN ALPHA-NUMERIC MODE 
/NSCNON-SPECIFIED) CHARACTERS FOR LEGAL HOLLERITH CODES 
/PRODUCE 0(EQUIVALENT TO BLANK TAPE) IN ASCII CODE. 

*7400 

ALFTAB=. /CODE CONVERSION FOR ALPHA-NUMERIC MODE 

/ASCII CHAR- HOLLERITH 

/CODE ACTER CODE 

240 /SPACE BLANK 

261/1 1 
262 /2 2 

263 /3 3 

264 /4 4 

265 /5 5 

266 /6 6 

267 /7 7 

270 /8 8 

271 /9 9 

0 /NS 8 2 

275 /= 83 

247 /’ 8 4 

0 /NS 8 5 

0 /NS 8 6 

0 /NS 8 7 

260 /0 0 

257 // 0 1 

323 /S 02 

324 /T 0 3 

325 /U 04 

326 /V 0 5 

327 /W 0 6 

330 /X 0 7 

331 /Y 08 

332 /Z 09 

0 /NS 082 

254 /, 083 

250 /( 084 

0 /NS 085 

0 /NS 086 

0 /NS 087 



/ASCII 

CHAR¬ 

/CODE 

ACTER 

255 

/- 

312 

/J 

313 

/K 

314 

/L 

315 

/M 

316 

/N 

317 

/o 

320 

/P 

321 

/Q 

322 

/R 

0 

/NS 

244 

/$ 

252 

/* 

0 

/NS 

0 

/NS 

0 

/NS 

253 

/ + 

301 

/A 

302 

/B 

303 

/c 

304 

/D 

305 

/E 

306 

/F 

307 

/G 

310 

/H 

311 

/I 

0 

/NS 

256 

/. 

251 

/) 

0 

/NS 

0 

/NS 

0 

/NS 


HOLLERITH 

CODE 

11 

11 1 
11 2 
11 3 
11 4 
11 5 
11 6 
11 7 
11 8 
11 9 
118 2 
118 3 
118 4 
11 8 5 
118 6 

11 8 7 

12 

12 1 
12 2 
12 3 
12 4 
12 5 
12 6 
12 7 
12 8 
12 9 
12 8 2 
12 8 3 
12 8 4 
12 8 5 
12 8 6 
12 8 7 
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/HOLLERITH TO OCTAL CODE TABLE OF 64 DECIMAL CHARACTERS 
/LISTED IN 00 TO 77 OCTAL NUMERICAL ORDER CORRESPONDING TO 
/INTERNAL CARD READER CODE AS READ IN ALPHA-NUMERIC MODE 
*7500 

OCTTAB=• /CODE CONVERSION FOR BINARY MODE 

/OCTAL CHAR- HOLLERITH 


/CODE 

ACTER 

CODE 

0000 

/SPACE 

BLANK 

-0400 

/I 

1 


-0200 

/2 

2 


-0100 

/3 

3 


-0040 

/ 4 

4 


-0020 

/5 

5 


-0010 

/6 

6 


-0004 

/7 

7 


-0002 

/8 

8 


-0001 

/9 

9 


-0202 

/NS 

8 

2 

-0102 

/ = 

8 

3 

-0042 

/' 

8 

4 

-0022 

/NS 

8 

5 

-0012 

/NS 

8 

6 

-0006 

/NS 

8 

7 

-1000 

/0 

0 


-1400 

// 

0 

1 

-1200 

/s 

0 

2 

-1100 

/T 

0 

3 

-1040 

/u 

0 

4 

-1020 

/V 

0 

5 

-1010 

/w 

0 

6 

-1004 

/X 

0 

7 

-1002 

/Y 

0 

8 

-1001 

/z 

0 

9 

-1202 

/NS 

0 

8 2 

-1102 

/ , 

0 

8 3 

-1042 

/( 

0 

8 4 

-1022 

/NS 

0 

8 5 

-1012 

/NS 

0 

8 6 

1006 

/NS 

0 

8 7 
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/OCTAL 

CHAR¬ 

HOLLERITH 

/CODE 

ACTER 

CODE 


-2000 

/- 

1 1 



-2400 

/J 

1 1 

1 


-2200 

/K 

11 

2 


-2100 

/L 

11 

3 


-2040 

/M 

1 1 

4 


-2020 

/N 

1 1 

5 


-2010 

/O 

1 1 

6 


-2004 

/P 

1 1 

7 


-2002 

/Q 

1 1 

8 


-2001 

/R 

1 1 

9 


-2202 

/NS 

1 1 

8 

2 

-2102 

/$ 

11 

8 

3 

-2042 

/* 

1 1 

8 

4 

-2022 

/NS 

11 

8 

5 

-2012 

/NS 

1 1 

8 

6 

2006 

/NS 

11 

8 

7 

4000 

/ + 

12 



-4400 

/A 

12 

1 


-4200 

/B 

12 

2 


4100 

/c 

12 

3 


4040 

/D 

12 

4 


4020 

/E 

12 

5 


-4010 

/F 

12 

6 


-4004 

/G 

12 

7 


-4002 

/H 

12 

8 


-4001 

/I 

12 

9 


-4202 

/NS 

12 

8 

2 

-4102 

/. 

12 

8 

3 

-4042 

/) 

12 

8 

4 

-4022 

/NS 

12 

8 

5 

-4012 

/NS 

12 

8 

6 

-4006 

/NS 

12 

8 

7 


$ 


AAA 

0020 

CR 

0070 

M100 

7371 

RBGN 

0125 

ALFTAB 

7400 

ENDBF 

1440 

Ml 2 

0075 

RCRA 

6632 

ALFWD 

7365 

ENDBFI 

7373 

M23 

0076 

RCRB 

6634 

AUTOA 

0010 

ERROR 

7343 

M240 

1476 

RCRD 

6674 

AUTOB 

0011 

G ETC HR 

0200 

NXCOLI 

0055 

RCSD 

6671 

AUTOC 

0012 

G OREAD 

0132 

NX PA 

0241 

RCSE 

6672 

BBB 

0021 

HAVDAT 

1475 

NXTCOL 

1426 

RCSF 

6631 

BFRST 

7150 

HIPUN 

0161 

OCTTAB 

7500 

RKON 

0126 

CDREAD 

1400 

HIPUNI 

0053 

OCTWD 

7364 

SF2 

0124 

CDREDI 

0054 

HUNT 

7301 

OVR80 

7352 

SPAL 

0200 

CHAR 

0136 

HVEDTA 

7273 

PALFWD 

7366 

SWITCH 

0156 

CHEK 

1506 

LF 

1477 

PASS 

0224 

TBUF 

0131 

CHEKI 

0025 

LOPUN 

0364 

PASS1 

0254 

TEM1 

0111 

CHRLST 

7374 

LOPUNI 

0052 

PASS2 

0261 

TEM2 

0112 

COLCNT 

0157 

LSTCHR 

1446 

PASS3 

0266 

TEM3 

0113 

COL73 

7367 

MNS40 

7372 

P100 

7370 
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LDR - A ONE PASS TRANSPARENT LOADER 


DECUS Program Library Write-up DECUS No. 8-306 

ABSTRACT 

LDR performs the same function as the loader supplied with the PDP-8 
Disc Monitor. It loads 1-4 programs in BIN format from high or low-speed 
paper tape, DECtape or DECdisk under control of the Disk Monitor. The 
programs are always loaded in one pass and LDR is completely transparent, 
meaning the user can load into any part of core (except the monitor area) 
and that, unless explicitly loaded, every word has the same value after 
the load process as before. 

USAGE 

After LDR and .LDR have been LOADed and SAVEd (see below), the user types 
i LDR J 

LDR responds by asking 
* IN- 

to which the user responds with 1-4 file names in standard Disk Monitor 
format, (example: S:BIN, D2:BIN2, R:, T:J) LDR then requests the starting 
address of the program to be loaded by typing 
*ST = 

The user answers by typing either or n jj. , where n is a 1—5 digit octal 
number. Omission of is equivalent to n = 07600. If five digits were 
"typed, the first selects the memory field in which execution starts, otherwise 
field 0 is assumed. Remaining digits give the octal address within a field 
at which the program is to begin. After the ST = response has been typed, 
the teletype carriage is returned but is not advanced to a new line. At any 
point before this, the user may restart a line by typing rubout or may return 
to the monitor with f C. Later recovery is possible, but harder, (see below) 
LDR immediately begins reading, which may force it to run in a wait loop 
until a device is readied, reads each BIN file in turn, and enters the loaded 
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program at the start address. If no binary is on paper tape, this should 
occur without intervention. LDR will halt after each file loaded from 
paper tape, to give the user time to turn off the reader and, possibly, insert 
a new tape. To continue, the operator presses CONT and LDR advances to the 
next file or, if loading is complete, begins execution. In addition, LDR 
will halt after a file from any device if it detects a check Siam error. 

This can be distinguished from a normal halt because the accumulator will 
be non—zero, reflecting the amount of the error. 

ADDING LDR TO THE DISK MONITOR 

Since LDR uses 7 scratch blocks (see below) and only 3 are normally 
available, SAM^ must be modified to insure that the extras can be used. To 
do this, use a program such as DISKLOOK (DECUS 8-111) to examine and modify 
words 200.167 - 200.172 (i.e., U0370g - U0373 q)• Each of these words should 
begin with the octal digits '00' or '01*. If not, the appropriate file(s) 
must be deleted to obtain this condition. Now modify the four words so that 
each begins with '01g' which reserves the area for scratch. 

To add LDR as a system program, both .LDR and LDR must be loaded, each 
in two passes, by the standard loader, then saved. The save commands 
needed are 

SAVE .LDR: 7000-7577; 7000 
SAVE LDR! 7^00; 7525 

If desired, .LDR can be SAVEd as a system program instead of user, but it 
is much more difficult to call accidentally if it is a user program. 

OPERATION 

To be transparent, LDR must save, then restore, the contents of all core 
Therefore, immediately after the call, it saves 


locations it uses. 
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6000q - 6JJJq, used by .CD., and 7000g - 7600g, used .LDR, on the disk. 

Since words 7200-7577 were saved in blocks 373q-374q at the last monitor 
restart, they are not written again, but are moved from one part of the disk 
to another. The data are not saved in monitor block format, but as an 
exact core image in disk addresses 76l77g - 77777g. LDR then searches m ± 
and SAMl for the first block of .LDR, and reads it and the following block 
into 7000 - 7377. Words l6 7 - 177 are saved, then .CD., which uses them, 
is read from disk and entered. After .CD. has read the input devices and 
returned, 167 - 177 and 6000 - 6777 are restored, the rest of .LDR is read 
into 7400 - 7577 and .LDR is entered at 7001. 

•LDR begins by requesting a starting address, modifying the data returned 
by .CD. into a more useable form, and changing word 7600 for later use as part 
of a wait loop. The code that does this may not be re-executed, since it 
is in the disk/DECtape buffer and may be overwritten. The BIN file(s) are 
read and loaded in turn directly into core with the exception that instead 
of placing a data word into field 0 with an address above 6777q, it is written 
on disk with an address 70177 g greater, and an attempt to modify 76OO - 7777 
will be ignored. After all binary has been loaded, a read from disk locations 
77177 - 77777 into 7000 - 7600 is initiated and a wait loop in locations 
7570-7600 is entered. LDR waits until word 7570 is altered from disk, then 
enters the loaded program. Since the disk operation is continuing when the 
program is entered, the user must observe certain precautions. 

restrictions AND HINTS 

When the user program is entered, word 7570 has just been read from disk, 
words 7571 - 7600 remain to be read, and the input operation is still in progress 
This means that, assuming 66nsec/word, the user should wait at least 528nsec 
before halting, using words 7571 - 7600, or doing any disk 1/0. In addition. 
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at the end of this time, there will he an interrupt pending from the disk. 

The user program is entered with the interrupt off, and, before turning it 
on, should clear the disk interrupt by a DCMA, DMAR, or DMAW instruction, 
by using monitor disk I/O routines or by jumping to 7600 to restart the 
monitor. The easiest, but not the only, way to observe these restrictions 
is to specify a starting address of 0 or 7600, which results in monitor 

restart as soon as the load finishes. 

The .LDR file must be named in DN^ and the number of its first block 
must be below 367 Q . This can be checked by examining appropriate parts of 
the disk, or care can be taken to make .LDR one of the first programs SAVEd. 
There must be no file whose name is before .LDR in DN^ and begins with '.L'. 

The .CD. file must start at its standard location, block 150. 

In using LDR, unexpected halts and closed loops may result from errors 
or misuse. There are several routines which read and write the disk, and not 
all act identically, but, in general, a read error will cause a halt, while a 
write error loops. A halt will also occur if .LDR is called from the keyboard, 
and loops will result if the .LDR file is misplaced, if LDR is used to load the 
binary of .LDR or if the user attempts to restart at 7600g after responding 
to the ST = message. The last is because LDR modifies 7600 and its original 
contents must be restored before it is executed. The author has found that 
7000g, 7200 g, 7400g and 7600g all seem to work as well for his installation. 

CAUTION 

LDR has been written, tested and debugged on a 4 k PDP-8/I with one DF32 
and one teletype. It should operate as described above on any other configura¬ 
tion supported by the Disk Monitor, but this cannot be guaranteed. 










